home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4th86_v4.zip
/
EXAMPLE1.4TH
< prev
next >
Wrap
Text File
|
1993-10-23
|
521b
|
16 lines
on printload
off redefine
: test1 5 0 do i . crlf loop ;
: test2 15 0 do i . tab 3 +loop ;
: test3 10 0 do i . 2 spcs loop ;
: test4 20 5 do i . loop ;
( note that a COLON starts each definition -- a SEMICOLON ends it
the word LOOP increments the loop counter by 1
The word +LOOP increments by the digit which precedes it
the period character [ point ] is called DOT and prints an integer
digit in decimal. The brackets ( ) are comment delimiters and can
be nested )
w1